home *** CD-ROM | disk | FTP | other *** search
/ SGI Developer Toolbox 6.1 / SGI Developer Toolbox 6.1 - Disc 2.iso / bin / create_netscape_preference_file < prev    next >
Text File  |  1996-11-11  |  2KB  |  52 lines

  1. #!/bin/perl
  2. $ENV{'PATH'} = "/usr/bsd:/bin/:/usr/bin:/usr/sbin:/usr/bin/X11";
  3.  
  4. sub read_it {
  5.     while (<PREF>) {
  6.         next if /^#/;
  7.         next if /^[     ]*$/;
  8.         next unless /^([^:]*):[ \t]*(.*)[ \t\n]*$/;
  9.         $values{$1} = $2;
  10.     }
  11.     close(PREF);
  12. }
  13.  
  14. $pref = "netscape-preferences";
  15. $user_home = $ENV{"HOME"};
  16. $www_home = "$user_home/.www";
  17. $www_home =~ s/\/\//\//;
  18. exit(0) if -f "$www_home/.$pref";
  19. if (open(PREF, "$user_home/.$pref")) {
  20.     &read_it;
  21.     $values{"CACHE_DIR"} = "$www_home/.netscape-cache" 
  22.         unless $values{"CACHE_DIR"};
  23.     $values{"BOOKMARKS_FILE"} = "$www_home/.netscape-bookmarks.html" 
  24.         unless $values{"BOOKMARKS_FILE"};
  25.     $values{"HISTORY_FILE"} = "$www_home/.netscape-history" 
  26.         unless $values{"HISTORY_FILE"};
  27.     $values{"NEWSRC_DIR"} = "$www_home" unless $values{"NEWSRC_DIR"};
  28. } elsif (open(PREF, "$www_home/$pref")) {
  29.     &read_it;
  30.     $values{"CACHE_DIR"} = "$www_home/.netscape-cache";
  31.     $values{"BOOKMARKS_FILE"} = "$www_home/.netscape-bookmarks.html";
  32.     $values{"HISTORY_FILE"} = "$www_home/.netscape-history";
  33.     $values{"NEWSRC_DIR"} = "$www_home";
  34. } else {
  35.     print STDERR "Unable to read any preferences file\n";
  36.     print STDERR "Contact DTjanitor@sgi.com\n\n";
  37.     exit(1);
  38. }
  39. $values{"PERSONAL_MAILCAP"} = "$www_home/.mailcap";
  40. $values{"PERSONAL_MIME_TYPES"} = "$www_home/.mime.types";
  41. if (! open(PREF, ">$www_home/.$pref")) {
  42.     print STDERR "Unable to write preferences file ($www_home/.$pref)\n";
  43.     print STDERR "Contact DTjanitor@sgi.com\n\n";
  44.     exit(1);
  45. }
  46. while (($key,$value) = each %values) {
  47.     print PREF "$key:\t$value\n";
  48.     #print "$key:\t$value\n";
  49. }
  50.  
  51. exit(0);
  52.